home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue38 / Clinic / StpKey5U.dfm / StpKey5U.txt
Text File  |  1998-07-07  |  3KB  |  158 lines
  1. object Form1: TForm1
  2.   Left = 259
  3.   Top = 107
  4.   BorderStyle = bsSingle
  5.   Caption = 'Key interception example #4'
  6.   ClientHeight = 242
  7.   ClientWidth = 352
  8.   Font.Color = clWindowText
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   KeyPreview = True
  13.   Menu = MainMenu1
  14.   PixelsPerInch = 96
  15.   Position = poDefaultPosOnly
  16.   TextHeight = 13
  17.   object Label1: TLabel
  18.     Left = 8
  19.     Top = 8
  20.     Width = 318
  21.     Height = 19
  22.     Caption = 'Press Escape to change the form'#39's colour'
  23.     Font.Color = clWindowText
  24.     Font.Height = -16
  25.     Font.Name = 'Arial'
  26.     Font.Style = [fsBold]
  27.     ParentFont = False
  28.   end
  29.   object Label2: TLabel
  30.     Left = 8
  31.     Top = 32
  32.     Width = 306
  33.     Height = 19
  34.     Caption = 'Press Ctrl+S to minimise this application'
  35.     Font.Color = clWindowText
  36.     Font.Height = -16
  37.     Font.Name = 'Arial'
  38.     Font.Style = [fsBold]
  39.     ParentFont = False
  40.   end
  41.   object Label3: TLabel
  42.     Left = 8
  43.     Top = 56
  44.     Width = 338
  45.     Height = 19
  46.     Caption = 'Press Alt+S to update this form'#39's caption bar'
  47.     Font.Color = clWindowText
  48.     Font.Height = -16
  49.     Font.Name = 'Arial'
  50.     Font.Style = [fsBold]
  51.     ParentFont = False
  52.   end
  53.   object Label4: TLabel
  54.     Left = 8
  55.     Top = 80
  56.     Width = 317
  57.     Height = 19
  58.     Caption = 'Press F2 to update this form'#39's caption bar'
  59.     Font.Color = clWindowText
  60.     Font.Height = -16
  61.     Font.Name = 'Arial'
  62.     Font.Style = [fsBold]
  63.     ParentFont = False
  64.   end
  65.   object Edit1: TEdit
  66.     Left = 24
  67.     Top = 104
  68.     Width = 121
  69.     Height = 21
  70.     TabOrder = 0
  71.     Text = 'Edit1'
  72.   end
  73.   object Edit2: TEdit
  74.     Left = 24
  75.     Top = 136
  76.     Width = 121
  77.     Height = 21
  78.     TabOrder = 1
  79.     Text = 'Edit2'
  80.   end
  81.   object Edit3: TEdit
  82.     Left = 24
  83.     Top = 168
  84.     Width = 121
  85.     Height = 21
  86.     TabOrder = 2
  87.     Text = 'Edit3'
  88.   end
  89.   object Edit4: TEdit
  90.     Left = 24
  91.     Top = 200
  92.     Width = 121
  93.     Height = 21
  94.     TabOrder = 3
  95.     Text = 'Edit4'
  96.   end
  97.   object Edit5: TEdit
  98.     Left = 192
  99.     Top = 104
  100.     Width = 121
  101.     Height = 21
  102.     TabOrder = 4
  103.     Text = 'Edit5'
  104.   end
  105.   object Edit6: TEdit
  106.     Left = 192
  107.     Top = 136
  108.     Width = 121
  109.     Height = 21
  110.     TabOrder = 5
  111.     Text = 'Edit6'
  112.   end
  113.   object Edit7: TEdit
  114.     Left = 192
  115.     Top = 168
  116.     Width = 121
  117.     Height = 21
  118.     TabOrder = 6
  119.     Text = 'Edit7'
  120.   end
  121.   object Edit8: TEdit
  122.     Left = 192
  123.     Top = 200
  124.     Width = 121
  125.     Height = 21
  126.     TabOrder = 7
  127.     Text = 'Edit8'
  128.   end
  129.   object MainMenu1: TMainMenu
  130.     Left = 144
  131.     Top = 120
  132.     object DummyItems1: TMenuItem
  133.       Caption = 'Dummy Items'
  134.       Visible = False
  135.       object Colour1: TMenuItem
  136.         Caption = 'Colour'
  137.         OnClick = Colour1Click
  138.         ShortCutText = 'Esc'
  139.       end
  140.       object Minimise1: TMenuItem
  141.         Caption = 'Minimise'
  142.         OnClick = Minimise1Click
  143.         ShortCutText = 'Ctrl+S'
  144.       end
  145.       object AltS1: TMenuItem
  146.         Caption = 'Alt+S'
  147.         OnClick = AltS1Click
  148.         ShortCutText = 'Alt+S'
  149.       end
  150.       object F21: TMenuItem
  151.         Caption = 'F2'
  152.         OnClick = F21Click
  153.         ShortCutText = 'F2'
  154.       end
  155.     end
  156.   end
  157. end
  158.